Item-Base-Color names an undocumented function, with lambda list (OBJECT).
(SETF Item-Base-Color) names an undocumented function, with lambda list (NEW-VALUE OBJECT).